Public Class EPeriododeLicencia
    Private mLegajo As Int32
    Public Property Legajo() As Int32
        Get
            Return mLegajo
        End Get
        Set(ByVal value As Int32)
            mLegajo = value
        End Set
    End Property

    Dim mtitulo As String
    Public Property Titulo() As String
        Get
            Return mtitulo
        End Get
        Set(ByVal value As String)
            mtitulo = value
        End Set
    End Property

    Dim mcapitulo As String
    Public Property Capitulo() As String
        Get
            Return mcapitulo
        End Get
        Set(ByVal value As String)
            mcapitulo = value
        End Set
    End Property

    Dim marticulo As Integer
    Public Property Articulo() As Integer
        Get
            Return marticulo
        End Get
        Set(ByVal value As Integer)
            marticulo = value
        End Set
    End Property


    Private mFechaAlta As Date
    Public Property FechaAlta() As Date
        Get
            Return mFechaAlta
        End Get
        Set(ByVal value As Date)
            mFechaAlta = value
        End Set
    End Property

    Private mFechaBaja As Date
    Public Property FechaBaja() As Date
        Get
            Return mFechaBaja
        End Get
        Set(ByVal value As Date)
            mFechaBaja = value
        End Set
    End Property
    Private mestado As Integer
    Public Property Estado() As Integer
        Get
            Return mestado
        End Get
        Set(ByVal value As Integer)
            mestado = value
        End Set
    End Property
    


#Region "metodos publicos"

    'inicializa la entidad a los valeres por defecto
    Public Sub New()
        mLegajo = 0
        mtitulo = ""
        mcapitulo = ""
        marticulo = 0
        mFechaAlta = "01/01/1900"
        mFechaBaja = "01/01/1900"
        mestado = 0


    End Sub

#End Region

End Class
